/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / csubrtns.arc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 1a 03 45 52 52 2e 43 00 | e7 fe 85 11 8c 17 8c d6 |..ERR.C.|........|
|00000010| 00 00 00 e6 0a dc 56 76 | d5 00 01 00 00 2f 2a 20 |......Vv|...../* |
|00000020| 65 72 72 2e 63 20 62 79 | 20 4d 69 63 68 61 65 6c |err.c by| Michael|
|00000030| 20 48 61 6e 73 6f 6e 20 | 2a 2f 0d 0a 2f 2a 20 79 | Hanson |*/../* y|
|00000040| 6f 75 20 6d 61 79 20 75 | 73 65 20 74 68 69 73 2c |ou may u|se this,|
|00000050| 20 62 75 74 20 6e 6f 74 | 20 66 6f 72 20 70 72 6f | but not| for pro|
|00000060| 66 69 74 2c 20 61 6e 64 | 20 67 69 76 65 20 6d 65 |fit, and| give me|
|00000070| 20 63 72 65 64 69 74 20 | 2a 2f 20 0d 0a 2f 2a 20 | credit |*/ ../* |
|00000080| 65 72 72 6f 72 20 70 72 | 69 6e 74 65 72 20 66 6f |error pr|inter fo|
|00000090| 72 20 63 20 2a 2f 0d 0a | 0d 0a 65 72 72 6f 72 28 |r c */..|..error(|
|000000a0| 73 74 72 2c 65 72 63 29 | 0d 0a 63 68 61 72 20 2a |str,erc)|..char *|
|000000b0| 73 74 72 3b 0d 0a 69 6e | 74 20 65 72 63 3b 0d 0a |str;..in|t erc;..|
|000000c0| 7b 0d 0a 09 66 70 72 69 | 6e 74 66 28 53 54 44 45 |{...fpri|ntf(STDE|
|000000d0| 52 52 2c 22 25 73 20 5c | 6e 22 2c 73 74 72 29 3b |RR,"%s \|n",str);|
|000000e0| 0d 0a 09 65 78 69 74 28 | 65 72 63 29 3b 0d 0a 7d |...exit(|erc);..}|
|000000f0| 1a 90 2d 1a 03 45 52 52 | 53 2e 43 00 fe 85 11 8c |..-..ERR|S.C.....|
|00000100| 17 8c e2 00 00 00 e6 0a | dc 56 93 1e 00 01 00 00 |........|.V......|
|00000110| 2f 2a 20 65 72 72 2e 63 | 20 62 79 20 4d 69 63 68 |/* err.c| by Mich|
|00000120| 61 65 6c 20 48 61 6e 73 | 6f 6e 20 2a 2f 0d 0a 2f |ael Hans|on */../|
|00000130| 2a 20 79 6f 75 20 6d 61 | 79 20 75 73 65 20 74 68 |* you ma|y use th|
|00000140| 69 73 2c 20 62 75 74 20 | 6e 6f 74 20 66 6f 72 20 |is, but |not for |
|00000150| 70 72 6f 66 69 74 2c 20 | 61 6e 64 20 67 69 76 65 |profit, |and give|
|00000160| 20 6d 65 20 63 72 65 64 | 69 74 20 2a 2f 20 0d 0a | me cred|it */ ..|
|00000170| 2f 2a 20 65 72 72 6f 72 | 20 70 72 69 6e 74 65 72 |/* error| printer|
|00000180| 20 66 6f 72 20 63 20 2a | 2f 0d 0a 0d 0a 65 72 72 | for c *|/....err|
|00000190| 6f 72 28 73 74 72 2c 65 | 72 63 29 0d 0a 63 68 61 |or(str,e|rc)..cha|
|000001a0| 72 20 2a 73 74 72 3b 0d | 0a 69 6e 74 20 65 72 63 |r *str;.|.int erc|
|000001b0| 3b 0d 0a 7b 0d 0a 09 66 | 70 75 74 73 28 73 74 72 |;..{...f|puts(str|
|000001c0| 2c 53 54 44 45 52 52 29 | 3b 0d 0a 09 66 70 75 74 |,STDERR)|;...fput|
|000001d0| 73 28 22 5c 6e 22 2c 53 | 54 44 45 52 52 29 3b 0d |s("\n",S|TDERR);.|
|000001e0| 0a 09 65 78 69 74 28 65 | 72 63 29 3b 0d 0a 7d 1a |..exit(e|rc);..}.|
|000001f0| 90 21 1a 03 45 53 43 54 | 2e 43 00 fe 85 11 8c 17 |.!..ESCT|.C......|
|00000200| 8c f6 01 00 00 e6 0a dc | 56 f1 b3 00 02 00 00 2f |........|V....../|
|00000210| 2a 20 76 65 72 73 69 6f | 6e 2e 63 20 62 79 20 4d |* versio|n.c by M|
|00000220| 69 63 68 61 65 6c 20 48 | 61 6e 73 6f 6e 20 2a 2f |ichael H|anson */|
|00000230| 0d 0a 2f 2a 20 79 6f 75 | 20 6d 61 79 20 75 73 65 |../* you| may use|
|00000240| 20 74 68 69 73 2c 20 62 | 75 74 20 6e 6f 74 20 66 | this, b|ut not f|
|00000250| 6f 72 20 70 72 6f 66 69 | 74 2c 20 61 6e 64 20 67 |or profi|t, and g|
|00000260| 69 76 65 20 6d 65 20 63 | 72 65 64 69 74 20 2a 2f |ive me c|redit */|
|00000270| 20 0d 0a 2f 2a 20 65 73 | 63 20 2d 20 6d 61 70 20 | ../* es|c - map |
|00000280| 73 74 72 69 6e 67 20 69 | 6e 74 6f 20 65 73 63 61 |string i|nto esca|
|00000290| 70 65 64 20 63 68 61 72 | 61 63 74 65 72 20 69 66 |ped char|acter if|
|000002a0| 20 61 70 70 72 6f 70 72 | 69 61 74 65 20 2a 2f 0d | appropr|iate */.|
|000002b0| 0a 0d 0a 63 68 61 72 20 | 65 73 63 28 73 2c 69 29 |...char |esc(s,i)|
|000002c0| 0d 0a 72 65 67 69 73 74 | 65 72 20 63 68 61 72 20 |..regist|er char |
|000002d0| 73 5b 5d 3b 0d 0a 69 6e | 74 20 2a 69 3b 0d 0a 7b |s[];..in|t *i;..{|
|000002e0| 0d 0a 09 69 6e 74 20 69 | 6e 64 65 78 28 29 3b 0d |...int i|ndex();.|
|000002f0| 0a 09 73 74 61 74 69 63 | 20 63 68 61 72 20 72 65 |..static| char re|
|00000300| 61 6c 5b 5d 20 3d 20 22 | 20 5c 90 03 62 5c 74 5c |al[] = "| \..b\t\|
|00000310| 76 5c 66 5c 6e 5c 72 5c | 28 5c 21 5c 29 5c 5e 22 |v\f\n\r\|(\!\)\^"|
|00000320| 3b 0d 0a 09 73 74 61 74 | 69 63 20 63 68 61 72 20 |;...stat|ic char |
|00000330| 73 79 6d 62 5b 5d 20 3d | 20 22 73 5c 5c 62 74 76 |symb[] =| "s\\btv|
|00000340| 66 6e 72 28 21 29 5e 22 | 3b 0d 0a 0d 0a 09 69 66 |fnr(!)^"|;.....if|
|00000350| 28 73 5b 2a 69 5d 20 21 | 3d 20 27 5c 5c 27 29 0d |(s[*i] !|= '\\').|
|00000360| 0a 09 09 72 65 74 75 72 | 6e 20 73 5b 2a 69 5d 3b |...retur|n s[*i];|
|00000370| 0d 0a 09 69 66 28 73 5b | 2a 69 5d 20 3d 3d 20 27 |...if(s[|*i] == '|
|00000380| 5c 30 27 29 20 20 2f 2a | 20 6e 6f 74 20 73 70 65 |\0')  /*| not spe|
|00000390| 63 69 61 6c 20 61 74 20 | 65 6e 64 20 2a 2f 0d 0a |cial at |end */..|
|000003a0| 09 09 72 65 74 75 72 6e | 20 27 5c 5c 27 3b 0d 0a |..return| '\\';..|
|000003b0| 09 28 2a 69 29 2b 2b 3b | 0d 0a 09 72 65 61 6c 5b |.(*i)++;|...real[|
|000003c0| 73 69 7a 65 6f 66 28 72 | 65 61 6c 29 2d 31 5d 20 |sizeof(r|eal)-1] |
|000003d0| 3d 20 73 5b 2a 69 5d 3b | 0d 0a 09 72 65 74 75 72 |= s[*i];|...retur|
|000003e0| 6e 20 72 65 61 6c 5b 69 | 6e 64 65 78 28 73 79 6d |n real[i|ndex(sym|
|000003f0| 62 2c 20 73 5b 2a 69 5d | 29 5d 3b 0d 0a 7d 0d 0a |b, s[*i]|)];..}..|
|00000400| 0d 0a 1a 90 0d 1a 06 46 | 49 4c 50 2e 43 00 fe 85 |.......F|ILP.C...|
|00000410| 11 8c 17 8c 67 02 00 00 | e6 0a dc 56 36 db 00 03 |....g...|...V6...|
|00000420| 00 00 ba 1a 5a 7c f9 df | aa 9b 72 c8 0b 5f 91 67 |....Z|..|..r.._.g|
|00000430| cf 93 8e e1 7c f3 5a aa | 99 16 a6 58 90 99 cb 72 |....|.Z.|...X...r|
|00000440| 7c f2 0e 89 0b f9 d4 bc | 3d bf 97 cf a5 ab a1 30 ||.......|=......0|
|00000450| 22 41 c4 b7 cf ee 1c 3d | dd 27 cf bb 68 90 47 8d |"A.....=|.'..h.G.|
|00000460| d2 d4 b9 9c 7c fd 8e a6 | 5a a9 d4 ba dc cc ad d2 |....|...|Z.......|
|00000470| d8 e7 cf bf 9c 3d c8 99 | df c3 dd 07 7c fc 80 d0 |.....=..|....|...|
|00000480| 7c 3d 6d 1d 8e 2a 04 3a | 95 97 cf a2 2a a9 e1 5b ||=m..*.:|....*..[|
|00000490| 08 bb 6b 08 91 6d 07 99 | c9 59 aa 9c 89 bf 57 cf |..k..m..|.Y....W.|
|000004a0| 88 78 d2 d4 bd 8e 89 0d | 8e 82 27 cf aa 9b f9 c8 |.x......|..'.....|
|000004b0| 9b f0 86 88 90 d0 7e b4 | 7c f3 7e f9 d3 7e b0 88 |......~.||.~..~..|
|000004c0| bf 3e f8 90 dd 69 df 9d | f9 9c d0 72 a0 1a c7 cf |.>...i..|...r....|
|000004d0| 95 91 e8 99 6c 89 bf 99 | 9c 06 51 6b c3 d7 cf 09 |....l...|..Qk....|
|000004e0| 68 90 6e cc 24 7c f8 68 | e1 42 41 20 15 20 7c fe |h.n.$|.h|.BA . |.|
|000004f0| 49 c1 1a 2b ce 51 a9 24 | 1c 80 ee c9 16 9d 78 68 |I..+.Q.$|......xh|
|00000500| 8e 06 d1 b7 27 a9 a1 98 | 87 18 a2 51 31 71 48 dd |....'...|...Q1qH.|
|00000510| 0b 3e 7a 9e b4 88 7b f0 | c8 99 cb 6b 62 41 f6 88 |.>z...{.|...kbA..|
|00000520| 87 89 28 90 d4 bb b6 88 | 72 01 20 13 5a 3d f5 b0 |..(.....|r. .Z=..|
|00000530| 7c f0 82 63 6a dc 5f 33 | df 4a 61 06 7c f6 fe 08 ||..cj._3|.Ja.|...|
|00000540| 24 21 a9 bd 6b 78 45 a9 | 92 44 0b 7c f0 c4 b7 6b |$!..kxE.|.D.|...k|
|00000550| e2 c2 42 0e e3 f4 24 0a | 57 cf 10 6b 76 2a 5c da |..B...$.|W..kv*\.|
|00000560| ce 89 40 77 55 26 b2 40 | a5 20 ea dc ce 8b e2 87 |..@wU&.@|. ......|
|00000570| b0 08 25 13 9c 52 b7 cf | c6 59 9b e3 f2 93 08 27 |..%..R..|.Y.....'|
|00000580| cf 42 11 48 4a 64 a6 e3 | f0 c4 35 a4 21 7c f0 a5 |.B.HJd..|..5.!|..|
|00000590| b7 6c 24 d1 53 9c 1e 96 | e2 0c 1e 3f 63 62 85 46 |.l$.S...|...?cb.F|
|000005a0| 9b 76 38 dd 15 03 38 34 | 10 63 df 39 c8 87 ce f4 |.v8...84|.c.9....|
|000005b0| a6 e7 27 50 aa 6a dc b1 | e2 ea 24 14 21 c5 83 9c |..'P.j..|..$.!...|
|000005c0| 6b cc a8 88 7f f0 88 78 | 87 a2 29 9c d8 e5 ac 0d |k......x|..).....|
|000005d0| 29 21 63 52 91 1e 96 a5 | c3 d6 40 ba d2 41 0b f0 |)!cR....|..@..A..|
|000005e0| d1 e3 f9 59 d6 4a 22 88 | 73 3b 0c 42 0e 0a 54 a6 |...Y.J".|s;.B..T.|
|000005f0| 20 11 06 5f 37 cf be 24 | ff 0c 03 e9 45 00 c4 4e | .._7..$|....E..N|
|00000600| 91 48 1c ce 3f fd 6b 24 | a3 06 15 28 5e c6 6f e9 |.H..?.k$|...(^.o.|
|00000610| 38 c8 0a 9b 05 27 cf 4f | f1 00 eb 4b 4c d1 cb 3e |8....'.O|...KL..>|
|00000620| b0 80 44 bf 99 59 b7 29 | 9c ed 70 3c be ca dc 72 |..D..Y.)|..p<...r|
|00000630| 5a c3 94 4f 5f ad c3 df | 18 a1 8a 73 62 cf 04 89 |Z..O_...|...sb...|
|00000640| 76 57 90 08 11 e4 69 38 | 4c a7 18 a2 4a 33 b2 cf |vW....i8|L...J3..|
|00000650| 99 f2 4a 55 42 01 0c 2a | 44 87 15 90 38 d8 ec d1 |..JUB..*|D...8...|
|00000660| 51 48 62 c6 7c 67 a0 3c | 5a e6 0e 24 3c 66 8a 20 |QHb.|g.<|Z..$<f. |
|00000670| 53 14 88 87 9a 66 bc 61 | 25 ae fe e3 e9 7c ea 67 |S....f.a|%....|.g|
|00000680| fd c5 85 88 76 49 4f f8 | 90 1a 03 46 49 4c 50 53 |....vIO.|...FILPS|
|00000690| 2e 43 00 85 11 8c 17 8c | e5 01 00 00 e6 0a dc 56 |.C......|.......V|
|000006a0| 70 80 00 02 00 00 2f 2a | 20 76 65 72 73 69 6f 6e |p...../*| version|
|000006b0| 2e 63 20 62 79 20 4d 69 | 63 68 61 65 6c 20 48 61 |.c by Mi|chael Ha|
|000006c0| 6e 73 6f 6e 20 2a 2f 0d | 0a 2f 2a 20 79 6f 75 20 |nson */.|./* you |
|000006d0| 6d 61 79 20 75 73 65 20 | 74 68 69 73 2c 20 62 75 |may use |this, bu|
|000006e0| 74 20 6e 6f 74 20 66 6f | 72 20 70 72 6f 66 69 74 |t not fo|r profit|
|000006f0| 2c 20 61 6e 64 20 67 69 | 76 65 20 6d 65 20 63 72 |, and gi|ve me cr|
|00000700| 65 64 69 74 20 2a 2f 20 | 0d 0a 2f 2a 20 66 69 6c |edit */ |../* fil|
|00000710| 65 20 70 72 6f 63 65 64 | 75 72 65 20 66 6f 72 20 |e proced|ure for |
|00000720| 64 6f 73 20 32 2e 30 20 | 2a 2f 0d 0a 2f 2a 20 61 |dos 2.0 |*/../* a|
|00000730| 6c 6c 6f 77 73 20 72 65 | 64 69 72 65 63 74 69 6f |llows re|directio|
|00000740| 6e 20 6f 66 20 53 54 44 | 49 4e 20 74 6f 20 77 6f |n of STD|IN to wo|
|00000750| 72 6b 20 28 64 6f 73 6e | 27 74 20 68 61 6e 67 20 |rk (dosn|'t hang |
|00000760| 6f 6e 20 45 4f 46 29 20 | 2a 2f 0d 0a 73 74 61 74 |on EOF) |*/..stat|
|00000770| 69 63 20 69 6e 74 20 69 | 6e 63 68 61 72 2c 66 69 |ic int i|nchar,fi|
|00000780| 6c 6e 3b 0d 0a 0d 0a 67 | 65 74 63 28 66 69 6c 6e |ln;....g|etc(filn|
|00000790| 6f 29 0d 0a 46 49 4c 45 | 20 66 69 6c 6e 6f 3b 0d |o)..FILE| filno;.|
|000007a0| 0a 7b 0d 0a 09 66 69 6c | 6e 3d 66 69 6c 6e 6f 3b |.{...fil|n=filno;|
|000007b0| 0d 0a 23 61 73 6d 0d 0a | 09 09 44 53 45 47 0d 0a |..#asm..|..DSEG..|
|000007c0| 49 4e 43 48 41 52 09 44 | 57 20 30 90 04 48 0d 0a |INCHAR.D|W 0..H..|
|000007d0| 09 09 43 53 45 47 0d 0a | 09 09 4d 4f 56 20 42 58 |..CSEG..|..MOV BX|
|000007e0| 2c 57 4f 52 44 20 66 69 | 6c 6e 5f 0d 0a 09 09 4d |,WORD fi|ln_....M|
|000007f0| 4f 56 20 43 58 2c 30 31 | 48 0d 0a 09 09 4d 4f 56 |OV CX,01|H....MOV|
|00000800| 20 44 58 2c 4f 46 46 53 | 45 54 20 49 4e 43 48 41 | DX,OFFS|ET INCHA|
|00000810| 52 0d 0a 09 09 4d 4f 56 | 20 41 48 2c 33 46 48 0d |R....MOV| AH,3FH.|
|00000820| 0a 09 09 49 4e 54 20 32 | 31 48 0d 0a 09 09 4a 42 |...INT 2|1H....JB|
|00000830| 09 45 52 52 0d 0a 09 09 | 43 4d 50 20 41 58 2c 30 |.ERR....|CMP AX,0|
|00000840| 0d 0a 09 09 4a 45 09 45 | 52 52 0d 0a 09 09 4d 4f |....JE.E|RR....MO|
|00000850| 56 20 41 58 2c 49 4e 43 | 48 41 52 0d 0a 09 09 4a |V AX,INC|HAR....J|
|00000860| 4d 50 20 44 4f 4e 45 0d | 0a 45 52 52 3a 09 4d 4f |MP DONE.|.ERR:.MO|
|00000870| 56 20 41 58 2c 2d 31 48 | 0d 0a 44 4f 4e 45 3a 09 |V AX,-1H|..DONE:.|
|00000880| 0d 0a 23 0d 0a 7d 0d 0a | 1a 90 1d 1a 06 49 4e 44 |..#..}..|.....IND|
|00000890| 45 2e 43 00 00 85 11 8c | 17 8c d7 01 00 00 e6 0a |E.C.....|........|
|000008a0| dc 56 1e a6 80 02 00 00 | ba 1a 5a 7c fa a9 bf 99 |.V......|..Z|....|
|000008b0| 59 99 ce 9d 7c f8 90 36 | 77 cf e9 db f0 ba 44 de |Y...|..6|w.....D.|
|000008c0| 9d fc 3d d0 77 cf d8 ed | 07 3d 5d 4b b7 2a a9 d8 |..=.w...|.=]K.*..|
|000008d0| ea dc c8 93 84 c3 dd 8e | a6 59 9c 3e fc 80 d0 7c |........|.Y.>...||
|000008e0| 3d a2 2e e9 bb 6d 4b 7c | fa 5a ba 13 02 24 18 22 |=....mK||.Z...$."|
|000008f0| c4 b7 cf 9d ff ee e9 63 | 67 64 67 cf c3 d9 df 7c |.......c|gdg....||
|00000900| f9 16 a6 58 90 3e f9 16 | 5e 07 cf d4 b0 65 bf 0a |...X.>..|^....e..|
|00000910| 22 12 90 65 ce 51 a9 92 | 42 41 fe e6 46 9d 73 d2 |"..e.Q..|BA..F.s.|
|00000920| d0 7a dc 91 6a 19 82 28 | 68 49 0d 0c eb 43 1e 04 |.z..j..(|hI...C..|
|00000930| 43 ef 9c 86 fe 78 46 b6 | 24 1f 68 82 22 01 bf 0d |C....xF.|$.h."...|
|00000940| 8e 5e 09 59 64 0b 41 8b | fd 07 9d 7a 83 f3 87 cf |.^.Yd.A.|...z....|
|00000950| be 2e b4 20 fd 07 6f ef | ee 78 47 cf 81 0d b9 14 |... ..o.|.xG.....|
|00000960| 83 df 4e 97 cf f7 ea 9b | a9 bf ee bf 62 41 20 11 |..N.....|....bA .|
|00000970| cf 9d f7 75 06 54 ed 36 | 72 84 f3 8d b9 5f 6b 41 |...u.T.6|r...._kA|
|00000980| 4f f0 80 d0 79 9c d8 ed | d2 d0 7b f9 44 03 67 a1 |O...y...|..{.D.g.|
|00000990| 96 40 20 10 96 1b 54 5d | 9d 7b 1e c2 4a ae 82 2f |.@ ...T]|.{..J../|
|000009a0| f0 82 2c 48 24 18 d2 04 | 43 67 b7 29 9c e0 8d 42 |..,H$...|Cg.)...B|
|000009b0| d4 bc 80 99 c9 16 aa 98 | 90 b7 2b 72 ee 1d d0 37 |........|..+r...7|
|000009c0| e1 6b ee 9b f9 06 3e 05 | c2 68 22 6d 0c aa e9 d9 |.k....>.|.h"m....|
|000009d0| d7 49 08 e0 91 6a dc 34 | 5b 72 93 8d d2 1a cb 72 |.I...j.4|[r.....r|
|000009e0| 89 03 d2 d8 ec 3d 12 f6 | 1c 12 63 8d 44 a5 35 f8 |.....=..|..c.D.5.|
|000009f0| e6 40 a7 83 26 67 b7 89 | 4d 8d 8e eb 06 40 ba d7 |.@..&g..|M....@..|
|00000a00| da a7 8e ab 88 ec 92 7d | ab 41 aa 92 30 35 dc 12 |.......}|.A..05..|
|00000a10| 7c ff dc 18 a1 2f 38 67 | 36 e6 dc 71 fe fb fc 20 ||..../8g|6..q... |
|00000a20| 19 9c b7 2d 4b b0 89 2b | 1b 13 52 c0 c7 cf 34 c3 |...-K..+|..R...4.|
|00000a30| 9c 3d f3 f1 4b e5 04 2b | d3 19 a8 c1 b1 d0 78 e0 |.=..K..+|......x.|
|00000a40| 9d 75 1c d0 7a 19 d0 ca | 19 1e 03 4b d6 4e 96 23 |.u..z...|...K.N.#|
|00000a50| 04 7b b6 86 41 ee b2 02 | 5f 6f 7a 20 9b 41 24 bc |.{..A...|_oz .A$.|
|00000a60| 47 cc 6d 3c 04 37 e9 b0 | 8d c5 5f 02 f4 00 9a f1 |G.m<.7..|.._.....|
|00000a70| c3 d7 cf a9 b7 cf 59 a9 | b0 82 26 49 4f f4 e9 1a |......Y.|..&IO...|
|00000a80| 03 49 4e 44 45 58 2e 43 | 00 85 11 8c 17 8c 24 01 |.INDEX.C|......$.|
|00000a90| 00 00 e6 0a dc 56 74 4b | 80 01 00 00 2f 2a 20 69 |.....VtK|..../* i|
|00000aa0| 6e 64 65 78 2e 63 20 62 | 79 20 4d 69 63 68 61 65 |ndex.c b|y Michae|
|00000ab0| 6c 20 48 61 6e 73 6f 6e | 20 2a 2f 0d 0a 2f 2a 20 |l Hanson| */../* |
|00000ac0| 79 6f 75 20 6d 61 79 20 | 75 73 65 20 74 68 69 73 |you may |use this|
|00000ad0| 2c 20 62 75 74 20 6e 6f | 74 20 66 6f 72 20 70 72 |, but no|t for pr|
|00000ae0| 6f 66 69 74 2c 20 61 6e | 64 20 67 69 76 65 20 6d |ofit, an|d give m|
|00000af0| 65 20 63 72 65 64 69 74 | 20 2a 2f 20 0d 0a 2f 2a |e credit| */ ../*|
|00000b00| 20 66 69 6e 64 20 69 6e | 64 65 78 20 6f 66 20 63 | find in|dex of c|
|00000b10| 68 61 72 20 63 20 69 6e | 20 73 74 72 69 6e 67 20 |har c in| string |
|00000b20| 73 74 72 20 2a 2f 0d 0a | 0d 0a 69 6e 64 65 78 28 |str */..|..index(|
|00000b30| 73 74 72 2c 63 29 0d 0a | 63 68 61 72 20 63 3b 0d |str,c)..|char c;.|
|00000b40| 0a 63 68 61 72 20 73 74 | 72 5b 5d 3b 0d 0a 7b 0d |.char st|r[];..{.|
|00000b50| 0a 09 69 6e 74 20 69 6e | 64 3b 0d 0a 0d 0a 09 66 |..int in|d;.....f|
|00000b60| 6f 72 28 69 6e 64 20 3d | 20 30 3b 20 73 74 72 5b |or(ind =| 0; str[|
|00000b70| 69 6e 64 5d 20 21 3d 20 | 45 4f 53 20 3b 20 2b 2b |ind] != |EOS ; ++|
|00000b80| 69 6e 64 29 0d 0a 09 09 | 69 66 28 73 74 72 5b 69 |ind)....|if(str[i|
|00000b90| 6e 64 5d 20 3d 3d 20 63 | 29 0d 0a 09 90 03 72 65 |nd] == c|).....re|
|00000ba0| 74 75 72 6e 28 69 6e 64 | 29 3b 0d 0a 09 72 65 74 |turn(ind|);...ret|
|00000bb0| 75 72 6e 28 2d 31 29 3b | 0d 0a 7d 0d 0a 1a 90 5f |urn(-1);|..}...._|
|00000bc0| 1a 06 4c 4f 43 41 4c 2e | 48 00 85 11 8c 17 8c fb |..LOCAL.|H.......|
|00000bd0| 00 00 00 e6 0a dc 56 5c | 96 80 01 00 00 ba 1a 5a |......V\|.......Z|
|00000be0| 7c fd d2 d4 b9 9c 9d fd | d2 b7 27 cf 95 90 a0 aa ||.......|..'.....|
|00000bf0| 9b f9 aa 9d 8e aa 9c 3d | bf 9d 4b 7c f8 90 bf 99 |.......=|..K|....|
|00000c00| 59 7c fd 4b dd 2d 8e 91 | 6a 65 7c fd 8e a6 5d 4b |Y|.K.-..|je|...]K|
|00000c10| d8 e7 cf e5 91 e8 99 6c | ee 91 6b 72 ee cd 8e 99 |.......l|..kr....|
|00000c20| cd 07 12 9d 8e 95 9c 49 | b5 fb 09 a5 ab a1 30 22 |.......I|......0"|
|00000c30| 41 82 28 92 ba 49 df bf | 09 9c 7c f0 82 31 70 a5 |A.(..I..|..|..1p.|
|00000c40| 39 c2 d5 7c f9 96 b0 11 | ef 3c 10 50 7c f3 9c 14 |9..|....|.<.P|...|
|00000c50| 85 f3 31 72 51 46 fb 01 | 74 1b f9 99 6a 5b 68 9b |..1rQF..|t...j[h.|
|00000c60| f9 b0 85 2b 0a 50 82 47 | fd 8e 37 78 bf 24 11 96 |...+.P.G|..7x.$..|
|00000c70| fc 9b 08 c0 69 9c bf 9e | 40 6d 13 ca 7c fb f0 a5 |....i...|@m..|...|
|00000c80| 2a 22 46 3e 96 bf 9d 8e | a4 ed 29 93 89 9c a2 2b |*"F>....|..)....+|
|00000c90| f0 7c ff 68 b3 b8 2c 3e | b6 ec ff 08 22 82 2d 8e |.|.h..,>|....".-.|
|00000ca0| ee 1c 80 99 c3 c1 5e 0c | ee 93 8c 3d c3 db 72 99 |......^.|...=..r.|
|00000cb0| c3 d5 eb 4c 47 51 ce 70 | 1c 6b 08 14 83 df 4e 97 |...LGQ.p|.k....N.|
|00000cc0| cf be 2f d6 b0 86 79 14 | 88 0e c2 4c 76 7b 23 df |../...y.|...Lv{#.|
|00000cd0| f8 08 22 64 94 ff e5 90 | 1a 06 53 45 54 53 2e 43 |.."d....|..SETS.C|
|00000ce0| 00 00 85 11 8c 17 8c 97 | 04 00 00 e6 0a dc 56 e6 |........|......V.|
|00000cf0| d7 80 06 00 00 ba 1a 5a | 7c fd 4b 99 cd 8e 7c fa |.......Z||.K...|.|
|00000d00| 65 89 0b f9 95 9b 72 99 | cd 07 d4 b7 cf 3d 59 59 |e.....r.|.....=YY|
|00000d10| 7c fc 3d d8 ea 65 46 37 | cf c8 08 90 d0 7d 8e 02 ||.=..eF7|.....}..|
|00000d20| a9 df c3 dd 07 7c fd 8e | d0 73 d5 d4 bb 72 aa 9c |.....|..|.s...r..|
|00000d30| 89 a5 ab a1 30 22 41 82 | 28 22 bb 68 90 b2 fd 64 |....0"A.|(".h...d|
|00000d40| d8 e9 d7 49 0e e9 ee 1a | dc b2 fa dc e9 9f 89 aa |...I....|........|
|00000d50| 9f 24 99 ca 19 82 2a a9 | bf 9c 89 3c 9d 4b 01 b9 |.$....*.|...<.K..|
|00000d60| 9c eb 48 22 91 60 44 3e | fe 99 6f e7 84 ad c4 d0 |..H".`D>|..o.....|
|00000d70| 89 0e e1 f2 96 b6 24 1f | 68 82 22 01 bf 0c 89 ae |......$.|h.".....|
|00000d80| c6 40 b4 1a ec 7c ff 38 | 7c fb e2 64 02 01 9d fa |.@...|.8||..d....|
|00000d90| a9 b7 2e 99 9d 71 48 3d | f4 e9 93 2d 07 2e bc b6 |.....qH=|...-....|
|00000da0| f8 95 04 ad c9 55 ae c9 | 03 55 da 19 04 3d 07 50 |.....U..|.U...=.P|
|00000db0| 4d d2 d0 7b f9 1b 19 59 | 95 97 1b fd cc 8e 88 eb |M..{...Y|........|
|00000dc0| f2 81 ce 2b aa e8 22 ff | 0c 47 24 18 90 b5 67 1b |...+..".|.G$...g.|
|00000dd0| 91 67 05 d8 ea dc c4 98 | a8 e9 df 1a b8 84 52 99 |.g......|......R.|
|00000de0| 97 cf a5 a6 45 89 0b 84 | 1c a6 40 86 84 90 7c f6 |....E...|..@...|.|
|00000df0| d4 e6 27 84 64 0b ad 24 | 11 cf 9d f9 d7 f9 87 cf |..'.d..$|........|
|00000e00| f7 ad 10 ab 6e 2b b4 12 | 01 09 6d 8e e0 8c 71 39 |....n+..|..m...q9|
|00000e10| c3 df c9 27 75 99 c5 eb | 99 c7 cf 4f 32 01 20 1e |...'u...|...O2. .|
|00000e20| 62 f9 87 84 36 8d 0c 04 | 32 01 05 0a ec a1 9a 9b |b...6...|2.......|
|00000e30| a9 b3 bf 73 64 79 9d 76 | 79 14 84 e9 bf c3 86 e8 |...sdy.v|y.......|
|00000e40| 02 41 d8 98 22 89 29 59 | 99 c6 d1 bf 9b 08 10 60 |.A..".)Y|.......`|
|00000e50| a5 4e 92 0e 7c f9 96 b1 | e9 96 1e fb a4 1c 6b 08 |.N..|...|......k.|
|00000e60| 10 f0 c4 0a 54 21 14 8b | 01 74 17 41 37 79 24 24 |....T!..|.t.A7y$$|
|00000e70| 1c 4b 7c f9 9c e9 d7 dc | 36 71 29 50 4c 8a c8 98 |.K|.....|6q)PL...|
|00000e80| 0d 05 8a a9 28 46 1c c3 | dd 2b d8 e6 fe ae c8 64 |....(F..|.+.....d|
|00000e90| 12 9d 8e c3 dc 80 33 07 | cf ba 42 35 bb 6c e5 1a |......3.|..B5.l..|
|00000ea0| 92 41 6d 13 64 ff 56 04 | aa 9b b6 3c 4c 55 aa 9d |.Am.d.V.|...<LU..|
|00000eb0| 9c c5 ca dc a4 45 04 bf | 62 41 61 c7 cf 5b 9f 98 |.....E..|bAa..[..|
|00000ec0| e3 56 41 e9 98 ef fe ac | 8a 60 c6 89 f2 9d 9c 37 |.VA.....|.`.....7|
|00000ed0| c2 b9 78 10 69 bb 63 f2 | b4 15 1c 3e f9 9c d4 b9 |..x.i.c.|...>....|
|00000ee0| 16 9d 71 e0 d4 bd 8e 89 | 0d 8e aa 99 16 d0 c2 8b |..q.....|........|
|00000ef0| aa 9a 22 e0 5d 4b f2 93 | 68 f6 87 cf 85 1b e2 c2 |..".]K..|h.......|
|00000f00| 4c 65 ca 7c e8 d2 ad 6b | da dd ef e3 18 51 7c ff |Le.|...k|.....Q|.|
|00000f10| f0 04 33 d2 52 08 ec 45 | 74 4a b7 2c 3d e5 98 90 |..3.R..E|tJ.,=...|
|00000f20| b7 29 df 68 bf 38 4e 18 | 51 89 09 38 91 63 c1 a2 |.).h.8N.|Q..8.c..|
|00000f30| 2a 65 aa 9a ec b2 fb 72 | bb 6b f9 2b 3c c4 67 81 |*e.....r|.k.+<.g.|
|00000f40| 50 e1 5e 59 e9 de e1 f2 | 4d 6c 05 cb 41 34 8c 76 |P.^Y....|Ml..A4.v|
|00000f50| 3c 2e eb 7c fd d2 7d c1 | 7e 9f 15 38 0a 50 82 0c |<..|..}.|~..8.P..|
|00000f60| 41 06 14 81 8a 1c c2 0e | 25 12 93 2d 53 17 35 a8 |A.......|%..-S.5.|
|00000f70| 26 42 14 64 4a 64 e9 52 | b5 6e 5b 05 f3 63 66 79 |&B.dJd.R|.n[..cfy|
|00000f80| 6b b6 5e 20 c1 11 0d 53 | 7e 7c f9 d7 eb 44 2c 6f |k.^ ...S|~|...D,o|
|00000f90| e6 10 7c f8 10 db 98 b0 | 7c f9 55 95 52 c5 2e b4 |..|.....||.U.R...|
|00000fa0| ed 28 44 01 7c f3 c7 eb | 47 cf 0a 9a a9 0c a3 86 |.(D.|...|G.......|
|00000fb0| aa 92 30 3b c5 24 f3 8d | b9 b7 91 4e 14 88 41 4f |..0;.$..|...N..AO|
|00000fc0| f0 80 10 70 4f 50 49 d7 | 4b 35 ac 42 c4 b0 45 17 |...pOPI.|K5.B..E.|
|00000fd0| b1 a4 eb 84 66 73 bf 2e | 6d 64 e9 69 df b8 1e bf |....fs..|md.i....|
|00000fe0| 53 9d b9 84 68 72 74 fb | bc b8 f5 fe 12 c7 30 2f |S...hrt.|......0/|
|00000ff0| f7 cd d8 e1 e0 20 13 13 | b0 89 2b b8 11 01 a1 97 |..... ..|..+.....|
|00001000| cf ef 6f 38 be 27 cf fa | cf ac 71 77 51 aa 9a 9b |..o8.'..|..qwQ...|
|00001010| c2 42 84 c1 25 6b 2e 72 | 02 c4 b2 35 d8 e4 63 34 |.B..%k.r|...5..c4|
|00001020| 57 cf b1 ec 26 b4 15 35 | 2c a7 1b 81 22 0e 00 96 |W...&..5|,..."...|
|00001030| 8e 12 de 5e 36 42 20 b8 | 1b f0 ba 4e 9d 9d 79 59 |...^6B .|...N..yY|
|00001040| 98 45 61 c1 1f eb b1 e1 | 64 a1 9f 7a fe fa d9 95 |.Ea.....|d..z....|
|00001050| 9c 3d 95 98 90 d4 ba 65 | 2a 6a 15 07 04 6d 68 9e |.=.....e|*j...mh.|
|00001060| fb f2 31 1f 87 ad c5 e2 | 14 40 9d 70 53 64 69 d7 |..1.....|.@.pSdi.|
|00001070| 46 f3 e2 17 e5 f7 f9 8a | 19 fe f7 84 c0 b2 6e e8 |F.......|......n.|
|00001080| 20 80 eb 1a 6c ea c5 36 | 57 a3 45 9d ff d7 a7 f9 | ...l..6|W.E.....|
|00001090| 55 5b 98 8e 10 ee 99 8d | 8c b2 9d 44 a5 36 70 dd |U[......|...D.6p.|
|000010a0| d2 40 f5 c1 1f 98 95 a5 | 31 c2 49 fc f2 54 d8 d4 |.@......|1.I..T..|
|000010b0| 6b 1c 59 31 de c0 92 f0 | 0e 75 62 36 4b 44 99 75 |k.Y1....|.ub6KD.u|
|000010c0| fe 76 38 ce 72 c0 ad 9b | 0e c6 82 28 d2 64 63 9f |.v8.r...|...(.dc.|
|000010d0| 6e c4 2c 7c f4 ed 95 ab | 1e eb f2 4a d7 d9 99 3c |n.,|....|...J...<|
|000010e0| ce 62 dd 0b 5f b5 f9 df | d0 7c 3d 05 be 15 34 5a |.b.._...|.|=...4Z|
|000010f0| a9 6e cb f5 82 2e 43 e4 | 09 d7 4d e2 35 95 9c 64 |.n....C.|..M.5..d|
|00001100| ad c3 5e 7a 49 4c 66 7a | 40 51 43 5d 81 6d 8e ce |..^zILfz|@QC].m..|
|00001110| e4 4a 3b c8 64 5c aa dc | 2c b8 df 43 dd 4d b4 1a |.J;.d\..|,..C.M..|
|00001120| 78 3c 94 9f e0 5c 67 ca | a8 f3 a1 99 32 b8 2f f5 |x<...\g.|....2./.|
|00001130| 1e 09 29 cf 71 2f 6e 7c | ea a5 a4 51 0a 90 43 20 |..).q/n||...Q..C |
|00001140| 9b 1e 04 37 a6 c8 9d b9 | 07 68 f3 60 aa 7c 0a 71 |...7....|.h.`.|.q|
|00001150| de 45 11 e0 8b fd 07 9d | 77 cf b2 f3 e1 f5 a8 6c |.E......|w......l|
|00001160| 27 4a 7c ed 7d d0 20 20 | ad 05 4c 75 7c f7 54 7c |'J|.}.  |..Lu|.T||
|00001170| fb 30 0a 98 41 20 1f 26 | ff 51 42 6f eb 2f 9c 13 |.0..A .&|.QBo./..|
|00001180| e9 e2 a5 52 bb b1 11 64 | 94 ff 5c 80 1a 03 56 45 |...R...d|..\...VE|
|00001190| 52 53 49 4f 4e 2e 43 00 | 8c 17 8c 6c 01 00 00 e6 |RSION.C.|...l....|
|000011a0| 0a dc 56 0c fb 80 01 00 | 00 2f 2a 20 76 65 72 73 |..V.....|./* vers|
|000011b0| 69 6f 6e 2e 63 20 62 79 | 20 4d 69 63 68 61 65 6c |ion.c by| Michael|
|000011c0| 20 48 61 6e 73 6f 6e 20 | 2a 2f 0d 0a 2f 2a 20 79 | Hanson |*/../* y|
|000011d0| 6f 75 20 6d 61 79 20 75 | 73 65 20 74 68 69 73 2c |ou may u|se this,|
|000011e0| 20 62 75 74 20 6e 6f 74 | 20 66 6f 72 20 70 72 6f | but not| for pro|
|000011f0| 66 69 74 2c 20 61 6e 64 | 20 67 69 76 65 20 6d 65 |fit, and| give me|
|00001200| 20 63 72 65 64 69 74 20 | 2a 2f 20 0d 0a 2f 2a 20 | credit |*/ ../* |
|00001210| 72 65 74 75 72 6e 73 20 | 44 4f 53 20 76 65 72 73 |returns |DOS vers|
|00001220| 69 6f 6e 20 6e 75 6d 62 | 65 72 20 69 6e 20 68 65 |ion numb|er in he|
|00001230| 78 20 28 68 69 62 79 74 | 65 2d 6d 61 69 6e 20 76 |x (hibyt|e-main v|
|00001240| 65 72 2c 20 6c 6f 62 79 | 74 65 2d 20 73 75 62 20 |er, loby|te- sub |
|00001250| 76 65 72 73 69 6f 6e 29 | 0d 0a 73 68 6f 75 6c 64 |version)|..should|
|00001260| 20 72 65 74 75 72 6e 20 | 30 30 78 78 20 66 6f 72 | return |00xx for|
|00001270| 20 76 65 72 73 69 6f 6e | 73 20 62 65 66 6f 72 65 | version|s before|
|00001280| 20 32 2e 30 30 29 20 2a | 2f 0d 0a 76 65 72 28 29 | 2.00) *|/..ver()|
|00001290| 0d 0a 7b 0d 0a 23 61 73 | 6d 0d 0a 09 6d 6f 76 20 |..{..#as|m...mov |
|000012a0| 41 48 2c 33 30 68 09 90 | 03 3b 67 65 74 20 76 65 |AH,30h..|.;get ve|
|000012b0| 72 73 69 6f 6e 20 6e 75 | 6d 62 65 72 20 63 61 6c |rsion nu|mber cal|
|000012c0| 6c 0d 0a 09 69 6e 74 20 | 32 31 68 09 90 04 3b 64 |l...int |21h...;d|
|000012d0| 6f 73 20 66 75 6e 63 74 | 69 6f 6e 20 63 61 6c 6c |os funct|ion call|
|000012e0| 0d 0a 09 78 63 68 67 20 | 61 6c 2c 61 68 09 90 03 |...xchg |al,ah...|
|000012f0| 3b 72 65 6f 72 64 65 72 | 20 73 6f 20 6c 6f 77 20 |;reorder| so low |
|00001300| 70 61 72 74 20 66 69 72 | 73 74 0d 0a 23 0d 0a 7d |part fir|st..#..}|
|00001310| 0d 0a 1a 90 16 1a 00    |                         |....... |        |
+--------+-------------------------+-------------------------+--------+--------+